home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db3ascii.arc / BMENU6.PRG < prev   
Encoding:
Text File  |  1985-08-18  |  1.5 KB  |  74 lines
  1. SET TALK OFF
  2. SET INTE OFF
  3. SET BELL OFF
  4. CLEA
  5. DO WHIL .T.
  6. STOR 1 TO line
  7. STOR 174 TO counting
  8. STOR 175 TO count
  9. DO WHIL line<=20
  10. @ line,8 SAY CHR(counting)
  11. @ line,69 SAY CHR(count)
  12. STOR line+1 TO line
  13. ENDD
  14. @  1,9 SAY "------------------------------------"+;
  15. "------------------------"
  16. @ 20,9 SAY "------------------------------------"+;
  17. "------------------------"
  18. STOR CHR(186) TO g
  19. STOR CHR(186) TO d
  20. @  3,15 SAY g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
  21. g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
  22. g+g+g+g
  23. @  3,14 SAY CHR(201)
  24. STOR 3 TO lines
  25. DO WHIL lines<=16
  26. @ lines+1,14 SAY D
  27. STOR lines+1 TO lines
  28. ENDD
  29. @ 18,14 SAY CHR(200)
  30. @ 18,15 SAY g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
  31. g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+g+;
  32. g+g+g+g+g+g
  33. @ 18,62 SAY CHR(188)
  34. @  3,62 SAY CHR(187)
  35. STOR 18 TO lines
  36. DO WHIL lines>4
  37. @ lines-1,62 SAY D
  38. STOR lines-1 TO lines
  39. ENDD
  40. STOR " " TO blank
  41. @  8,17 SAY "<0>  EXIT TO DBASE III."
  42. @  9,17 SAY "<1>  SHOW ASCII VALUES FROM '33' "+;
  43. "AND UP. "
  44. @ 10,17 SAY "<2>  SELECT NUMBERS TO BE SHOWN "+;
  45. "AS ASCII. "
  46. @ 11,17 SAY "<3>  FILL A SCREEN WITH ASCII VALUES. "
  47. STOR CHR(219) TO blank
  48. STOR CHR(176) TO S
  49. @ 16,22 SAY "PICK A NUMBER HERE "+s
  50. @ 16,42 GET blank
  51. @ 16,41 SAY CHR(175)
  52. @ 16,43 SAY CHR(174)
  53. READ
  54. IF blank='0'
  55. SET INTE ON
  56. SET BELL ON
  57. CLEA
  58. CLEA ALL
  59. SET PROCEDURE TO
  60. RETU
  61. ENDI
  62. IF blank $"123"
  63. SET PROCEDURE TO ascii.pro
  64. STOR "CHRFUNC"+blank TO choice
  65. STOR 0 TO time
  66. DO WHIL time<>25
  67. ?
  68. STOR time+1 TO time
  69. ENDD
  70. DO &choice
  71. ENDI
  72. ENDD
  73.  
  74.